1 REM WRITTEN BY WILLIAM MARSDEN
2 REM 8/18/86
10 N$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ[193][194][195][196][197][198][199][200][201][202]":POKE53280,0:POKE53281,0
20 PRINTCHR$(14)"[147][196]ISK [201]NDEX 1.0      [208]RESS MATCHING KEY #";
30 FORN=1TO23:READNM$:IFNM$="EOF"THENN=23:GOTO50
40 GOSUB410
50 NEXT:IFNM$="EOF"THEN100
60 PRINT"";
70 FORN=24TO46:READNM$:IFNM$="EOF"THENN=46:GOTO90
80 GOSUB410
90 NEXT
100 FORX=0TO9:GETK$:NEXT
110 GETK$:IFK$=""THEN110
120 A=0:FORX=1TO46:IFK$=MID$(N$,X,1)THENA=1:N=X:IFX>MTHENA=0
130 PRINT"[145]";:NEXT:IFA=0THEN110
140 PRINT"[157]"K$;
150 M1=198:M2=631:IFFRE(E)>3E4THENM1=208:M2=842
160 FORX=1TO46:READNM$,M:IFX=NTHENX=46
170 NEXT:FORX=M2TOM2+2:POKEX,13:NEXT:POKEM1,2
180 PRINT"[147][142]NEW":PRINT"LOAD"CHR$(34)NM$CHR$(34)",8";:IFM=1THENPRINT",1";
190 PRINT:PRINT"RUN"
400 END
410 PRINT""MID$(N$,N,1)" "LEFT$(NM$,18)LEFT$("[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]",LEN(NM$)+2);
420 M=N:RETURN
500 DATA"[194]AD [205]EDICINE","[215]INSOME","[213]NBORED","[204]IGHT [198]ORCE","[197]NERGY","[212]ROLLS"
510 DATA"[196]EATH","[202]OURNEYS","[199]LASS [211]WORD","[196]UNGEON [205]ASTER","4 [208]ICS/[214]OID"
520 DATA" B> [196]EATH [210]UN"," C> [212]HE [197]VIL"," D> [212]HE [211]TAND"," E> [193]RMIES","EOF"
530 DATA"BAD MEDICINE/VI",0,"WINSOME",0,"UNBORED",0,"LIGHT FORCE/FTL",0
540 DATA"ENERGY DEMO",0,"TROLLS",0,"DEATH DEMO",0,"WIZ/JOURNEYS",1
550 DATA"GLASS SWORD 2",0,"DUNGEON MASTER",0,"4 PICS/VOID",0,"DEATH RUN",0
560 DATA"THE EVIL",0,"THE STAND",0,"ARMIES",0